home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr10 / tvprompt.zip / CRT.LIB < prev    next >
Text File  |  1992-04-08  |  640b  |  25 lines
  1. package CRT is
  2. -- Copyright 1991,92 Tom Moran
  3.  
  4.   Line_Width_In_Bytes:constant:=80;
  5.  
  6.   Logical_Screen_Height: constant Integer := 100;
  7.   -- odd lines duplicate even, giving double height characters for visibility
  8.  
  9.   type Bytes is range 0 .. 255;
  10.   for Bytes'Size use 8;
  11.  
  12.   White:constant Bytes:=16#FF#;
  13.  
  14.   type Video_Bytes is array (Integer range <>) of Bytes;
  15.   subtype X_Range is Integer range 0 .. Line_Width_In_Bytes-1;
  16.   subtype Full_Scan_Lines is Video_Bytes(X_Range);
  17.  
  18.   procedure Scroll(New_Scan_Line:   Full_Scan_Lines);
  19.  
  20.   procedure Open_White_Screen;
  21.  
  22.   procedure Revert_To_Text;
  23.  
  24. end CRT;
  25.